home *** CD-ROM | disk | FTP | other *** search
/ Run Magazine ReRun 1986 September & October / rerun-1986-09-10.d64 / demo pointer (.txt) < prev    next >
Commodore BASIC  |  2022-09-20  |  2KB  |  76 lines
  1. 10 rem demo pointer by john m. campbell
  2. 20 print chr$(147);chr$(17);chr$(17);tab(13)"demo pointer"
  3. 30 for i=1to12:print:nexti
  4. 40 v=53248
  5. 50 for n=0 to 63:read q:poke 703+n,q:next n
  6. 60 poke 2047,11:rem sprite 7 data in 11th block
  7. 70 poke 53294,1:rem set sprite 7 color to black
  8. 80 sz=0:poke v+23,sz:poke v+29,sz
  9. 90 poke v+14,170:rem x position of sprite
  10. 100 poke v+15,100:rem y position of sprite
  11. 110 poke v+21,128:rem enable sprite 7
  12. 120 print " [158]press space bar to change arrow's size[154]"
  13. 130 printtab(7)"<press return to continue>"
  14. 140 get a$
  15. 150 if a$=chr$(13) goto 210
  16. 160 if a$<>" " goto 140
  17. 170 if sz=0 then sz=128:goto 190
  18. 180 sz=0
  19. 190 poke v+23,sz:poke v+29,sz:rem set sprite size
  20. 200 goto 140
  21. 210 print "[145][145][145] press space bar to change arrow's color[154]"
  22. 220 printtab(7)"<press return to continue>"
  23. 230 get a$
  24. 240 if a$=chr$(13) goto 290
  25. 250 if a$<>" " goto 230
  26. 260 cl=cl+1:if cl=16 then cl=0
  27. 270 poke 53294,cl:rem set sprite 7 color
  28. 280 goto 230
  29. 290 rem sprite data
  30. 300 data 0,0,0,0,255,252,0,255,248,0
  31. 310 data 255,240,0,255,192,0,255,224,0
  32. 320 data 255,248,0,255,255,240,255,255,252
  33. 330 data 243,255,254,225,255,255,128,255,255
  34. 340 data 0,255,128,0,254,0,0,252,0
  35. 350 data 0,252,0,0,252,0,0,124,0
  36. 360 data 0,28,0,0,12,0,0,0,0
  37. 370 ad=49200:rem load address
  38. 380 aa=ad
  39. 390 print"loading handler"
  40. 400 read d:printd:print"[145][145]
  41. 410 [139] d[179]0 [167] 450
  42. 420 [151] aa,d
  43. 430 aa[178]aa[170]1
  44. 440 [137] 400
  45. 450 [153]"contloadhandler loaded"
  46. 460 [129] i[178]0 [164] 12
  47. 470 [135] d:[151] 679[170]i,d
  48. 480 [130] i
  49. 490 a1[178][181](ad[173]256):[151] 686,a1
  50. 500 a0[178]ad[171]a1[172]256:[151] 681,a0
  51. 510 [158] 679
  52. 520 [128]
  53. 530 [131] 169,16,45,0,220,208,11,173,191
  54. 540 [131] 2,48,53,56,110,191,2,48,47,169
  55. 550 [131] 128,205,191,2,208,13,77,21,208
  56. 560 [131] 141,21,208,169,2,141,191,2,16
  57. 570 [131] 89,169,129,205,191,2,208,13,77
  58. 580 [131] 21,208,141,21,208,169,0,141
  59. 590 [131] 191,2,240,7,169,2,205,191,2
  60. 600 [131] 240,108,169,1,45,0,220,208,15
  61. 610 [131] 206,15,208,169,29,205,15,208
  62. 620 [131] 208,22,169,249,141,15,208,169
  63. 630 [131] 2,45,0,220,208,10,238,15,208
  64. 640 [131] 208,5,169,34,141,15,208,169
  65. 650 [131] 4,45,0,220,208,25,206,14,208
  66. 660 [131] 208,57,206,14,208,169,128,77
  67. 670 [131] 16,208,141,16,208,16,44,169,87
  68. 680 [131] 141,14,208,16,37,169,8,45,0
  69. 690 [131] 220,208,30,238,14,208,240,17
  70. 700 [131] 169,128,45,16,208,240,18,169
  71. 710 [131] 88,77,14,208,208,11,141,14,208
  72. 720 [131] 169,128,77,16,208,141,16,208
  73. 730 [131] 76,49,234,-1
  74. 740 [131] 120,169,0,141,20,3
  75. 750 [131] 169,192,141,21,3,88,96
  76.